function Y=f(X)

m=median(X);
Z=X-m;
Z=Z.^2;
p=prctile(Z,90);
Y=Z./(1+abs(Z)/(2*p));
Y=Y+m;

% NORMALIZE TO FRAMEWORK-VALUES
Y=1000*(Y-min(Y))/(max(Y)-min(Y));

